home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Devpac 2.12 disk 2.adf / include.cbm / exec / initializers.i < prev    next >
Text File  |  1987-03-31  |  2KB  |  60 lines
  1.     IFND EXEC_INITIALIZERS_I
  2. EXEC_INITIALIZERS_I SET 1
  3. *********************************************************************
  4. *
  5. *   Commodore Amiga -- ROM Operating System Executive Include File
  6. *
  7. **********************************************************************
  8. *
  9. *   Source Control:
  10. *
  11. *       $Header: initializers.i,v 1.0 85/08/28 15:09:29 carl Exp $
  12. *
  13. *       $Locker:  $
  14. *
  15. **********************************************************************
  16.  
  17.  
  18. INITBYTE        MACRO   * &offset,&value
  19.                 DC.B    $e0
  20.                 DC.B    0
  21.                 DC.W    \1
  22.                 DC.B    \2
  23.                 DC.B    0
  24.                 ENDM
  25.  
  26. INITWORD        MACRO   * &offset,&value
  27.                 DC.B    $d0
  28.                 DC.B    0
  29.                 DC.W    \1
  30.                 DC.W    \2
  31.                 ENDM
  32.  
  33. INITLONG        MACRO   * &offset,&value
  34.                 DC.B    $c0
  35.                 DC.B    0
  36.                 DC.W    \1
  37.                 DC.L    \2
  38.                 ENDM
  39.       
  40. INITSTRUCT  MACRO   * &size,&offset,&value,&count
  41.             DS.W    0
  42.             IFC     '\4',''
  43. COUNT\@     SET     0
  44.             ENDC
  45.             IFNC    '\4',''
  46. COUNT\@     SET     \4
  47.             ENDC
  48. CMD\@       SET     (((\1)<<4)!COUNT\@)
  49.             IFLE    (\2)-255
  50.             DC.B    (CMD\@)!$80
  51.             DC.B    \2
  52.             MEXIT
  53.             ENDC
  54.             DC.B    CMD\@!$0C0
  55.             DC.B    (((\2)>>16)&$0FF)
  56.             DC.W    ((\2)&$0FFFF)
  57.             ENDM
  58.  
  59.     ENDC !EXEC_INITIALIZERS_I
  60.